home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / osi / isode / vmsisode / vmsisode80_tar.Z / vmsisode80_tar / sockit / source / cc.com < prev    next >
Encoding:
Text File  |  1992-02-19  |  907 b   |  34 lines
  1. $ c_file = p1+".c"
  2. $ obj_file = p1+".obj"
  3. $ if f$search(obj_file) .NES. ""
  4. $  then
  5. $   obj_date = f$cvtime(f$file_attributes(obj_file,"RDT"))
  6. $   c_date   = f$cvtime(f$file_attributes(c_file,"RDT"))
  7. $   if obj_date .GTS. c_date then exit
  8. $   delete 'obj_file';
  9. $ endif
  10. $ dbg = ""
  11. $ if debug .EQS. "DEBUG" then dbg = "/debug/noopt"
  12. $!
  13. $ if f$trnlnm("CCOMPILER") .EQS. "CC"
  14. $  then
  15. $   dbg = ""
  16. $   if debug .EQS. "DEBUG" then dbg = "/debug/noopt"
  17. $   write sys$output "cc ''dbg' ''options' ''c_file'"
  18. $   cc 'dbg' 'options' 'c_file'
  19. $  else
  20. $   sr = f$trnlnm("sockit_root")
  21. $   gccinc = f$extract(0,f$length(sr)-1,sr) + "gccinclude.]"
  22. $   if f$trnlnm("gnu_cc_include","lnm$process") .NES. ""
  23. $    then
  24. $      deass gnu_cc_include
  25. $   endif
  26. $   define/trans=conc gnu_cc_include 'gccinc'
  27. $   write sys$output "gcc ''dbg' ''options' ''c_file'"
  28. $   gcc 'dbg' 'options' 'c_file'
  29. $ endif
  30. $!
  31. $ altered == 1
  32. $ exit
  33.  
  34.